home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / card_126360.txt < prev    next >
Text File  |  1990-08-14  |  10KB  |  527 lines
  1. -- card: 126360 from stack: in
  2. -- bmap block id: 126902
  3. -- flags: 4000
  4. -- background id: 14625
  5. -- name: Student Requests
  6. ----- HyperTalk script -----
  7. on resetCard
  8.   set hilite of card button id 4 to true
  9.   repeat with index = 5 to 11
  10.     set hilite of card button id index to false
  11.   end repeat
  12.   set hilite of card button id 12 to true
  13.   repeat with index = 13 to 19
  14.     set hilite of card button id index to false
  15.   end repeat
  16.   put empty into card field "Course Request"
  17.   hide card button "Link"
  18. end resetCard
  19.  
  20. on groupThree
  21.   if not hilite of target then
  22.     repeat with index = 4 to 11
  23.       set hilite of card button id index to false
  24.     end repeat
  25.     set hilite of target to true
  26.   end if
  27. end groupThree
  28.  
  29. on groupFour
  30.   if not hilite of target then
  31.     repeat with index = 12 to 19
  32.       set hilite of card button id index to false
  33.     end repeat
  34.     set hilite of target to true
  35.   else if hilite of card button id 9 then
  36.     put short name of target into card field "Course Request"
  37.     show card button "Link"
  38.   end if
  39. end groupFour
  40.  
  41.  
  42. -- part 1 (button)
  43. -- low flags: 00
  44. -- high flags: 0000
  45. -- rect: left=0 top=0 right=342 bottom=512
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 0 / 0
  48. -- text alignment: 1
  49. -- font id: 0
  50. -- text size: 12
  51. -- style flags: 0
  52. -- line height: 16
  53. -- part name: 
  54.  
  55.  
  56. -- part 2 (button)
  57. -- low flags: 00
  58. -- high flags: 0000
  59. -- rect: left=9 top=213 right=228 bottom=24
  60. -- title width / last selected line: 0
  61. -- icon id / first selected line: 5068 / 5068
  62. -- text alignment: 1
  63. -- font id: 0
  64. -- text size: 12
  65. -- style flags: 0
  66. -- line height: 16
  67. -- part name: Close
  68. ----- HyperTalk script -----
  69. on mouseDown
  70.   set icon of me to "Close Box Hi"
  71. end mouseDown
  72.  
  73. on mouseLeave
  74.   set icon of me to "Close Box"
  75. end mouseLeave
  76.  
  77. on mouseUp
  78.   set icon of me to "Close Box"
  79.   lock screen
  80.   resetCard
  81.   pop card
  82.   unlock screen
  83. end mouseUp
  84.  
  85.  
  86. -- part 3 (field)
  87. -- low flags: 01
  88. -- high flags: 0000
  89. -- rect: left=90 top=169 right=183 bottom=239
  90. -- title width / last selected line: 0
  91. -- icon id / first selected line: 0 / 0
  92. -- text alignment: 0
  93. -- font id: 3
  94. -- text size: 9
  95. -- style flags: 0
  96. -- line height: 12
  97. -- part name: Course Request
  98.  
  99.  
  100. -- part 4 (button)
  101. -- low flags: 00
  102. -- high flags: 4000
  103. -- rect: left=71 top=110 right=122 bottom=242
  104. -- title width / last selected line: 0
  105. -- icon id / first selected line: 0 / 0
  106. -- text alignment: 1
  107. -- font id: 0
  108. -- text size: 12
  109. -- style flags: 0
  110. -- line height: 16
  111. -- part name: 
  112. ----- HyperTalk script -----
  113. on mouseUp
  114.   groupThree
  115. end mouseUp
  116.  
  117.  
  118.  
  119. -- part 5 (button)
  120. -- low flags: 00
  121. -- high flags: 0000
  122. -- rect: left=71 top=122 right=134 bottom=242
  123. -- title width / last selected line: 0
  124. -- icon id / first selected line: 0 / 0
  125. -- text alignment: 1
  126. -- font id: 0
  127. -- text size: 12
  128. -- style flags: 0
  129. -- line height: 16
  130. -- part name: 
  131. ----- HyperTalk script -----
  132. on mouseUp
  133.   groupThree
  134. end mouseUp
  135.  
  136.  
  137.  
  138. -- part 6 (button)
  139. -- low flags: 00
  140. -- high flags: 0000
  141. -- rect: left=71 top=134 right=146 bottom=242
  142. -- title width / last selected line: 0
  143. -- icon id / first selected line: 0 / 0
  144. -- text alignment: 1
  145. -- font id: 0
  146. -- text size: 12
  147. -- style flags: 0
  148. -- line height: 16
  149. -- part name: 
  150. ----- HyperTalk script -----
  151. on mouseUp
  152.   groupThree
  153. end mouseUp
  154.  
  155.  
  156.  
  157. -- part 7 (button)
  158. -- low flags: 00
  159. -- high flags: 0000
  160. -- rect: left=71 top=146 right=158 bottom=242
  161. -- title width / last selected line: 0
  162. -- icon id / first selected line: 0 / 0
  163. -- text alignment: 1
  164. -- font id: 0
  165. -- text size: 12
  166. -- style flags: 0
  167. -- line height: 16
  168. -- part name: 
  169. ----- HyperTalk script -----
  170. on mouseUp
  171.   groupThree
  172. end mouseUp
  173.  
  174.  
  175.  
  176. -- part 8 (button)
  177. -- low flags: 00
  178. -- high flags: 0000
  179. -- rect: left=71 top=158 right=170 bottom=242
  180. -- title width / last selected line: 0
  181. -- icon id / first selected line: 0 / 0
  182. -- text alignment: 1
  183. -- font id: 0
  184. -- text size: 12
  185. -- style flags: 0
  186. -- line height: 16
  187. -- part name: 
  188. ----- HyperTalk script -----
  189. on mouseUp
  190.   groupThree
  191. end mouseUp
  192.  
  193.  
  194.  
  195. -- part 9 (button)
  196. -- low flags: 00
  197. -- high flags: 0000
  198. -- rect: left=71 top=170 right=182 bottom=242
  199. -- title width / last selected line: 0
  200. -- icon id / first selected line: 0 / 0
  201. -- text alignment: 1
  202. -- font id: 0
  203. -- text size: 12
  204. -- style flags: 0
  205. -- line height: 16
  206. -- part name: 
  207. ----- HyperTalk script -----
  208. on mouseUp
  209.   groupThree
  210. end mouseUp
  211.  
  212.  
  213.  
  214. -- part 10 (button)
  215. -- low flags: 00
  216. -- high flags: 0000
  217. -- rect: left=71 top=182 right=194 bottom=242
  218. -- title width / last selected line: 0
  219. -- icon id / first selected line: 0 / 0
  220. -- text alignment: 1
  221. -- font id: 0
  222. -- text size: 12
  223. -- style flags: 0
  224. -- line height: 16
  225. -- part name: 
  226. ----- HyperTalk script -----
  227. on mouseUp
  228.   groupThree
  229. end mouseUp
  230.  
  231.  
  232.  
  233. -- part 11 (button)
  234. -- low flags: 00
  235. -- high flags: 0000
  236. -- rect: left=71 top=194 right=206 bottom=242
  237. -- title width / last selected line: 0
  238. -- icon id / first selected line: 0 / 0
  239. -- text alignment: 1
  240. -- font id: 0
  241. -- text size: 12
  242. -- style flags: 0
  243. -- line height: 16
  244. -- part name: 
  245. ----- HyperTalk script -----
  246. on mouseUp
  247.   groupThree
  248. end mouseUp
  249.  
  250.  
  251.  
  252. -- part 12 (button)
  253. -- low flags: 00
  254. -- high flags: 4000
  255. -- rect: left=3 top=244 right=256 bottom=492
  256. -- title width / last selected line: 0
  257. -- icon id / first selected line: 0 / 0
  258. -- text alignment: 1
  259. -- font id: 0
  260. -- text size: 12
  261. -- style flags: 0
  262. -- line height: 16
  263. -- part name: Algebra 11 (E)
  264. ----- HyperTalk script -----
  265. on mouseUp
  266.   groupFour
  267. end mouseUp
  268.  
  269.  
  270.  
  271. -- part 13 (button)
  272. -- low flags: 00
  273. -- high flags: 0000
  274. -- rect: left=3 top=256 right=268 bottom=492
  275. -- title width / last selected line: 0
  276. -- icon id / first selected line: 0 / 0
  277. -- text alignment: 1
  278. -- font id: 0
  279. -- text size: 12
  280. -- style flags: 0
  281. -- line height: 16
  282. -- part name: Algebra 12 (E)
  283. ----- HyperTalk script -----
  284. on mouseUp
  285.   groupFour
  286. end mouseUp
  287.  
  288.  
  289.  
  290. -- part 14 (button)
  291. -- low flags: 00
  292. -- high flags: 0000
  293. -- rect: left=3 top=268 right=280 bottom=492
  294. -- title width / last selected line: 0
  295. -- icon id / first selected line: 0 / 0
  296. -- text alignment: 1
  297. -- font id: 0
  298. -- text size: 12
  299. -- style flags: 0
  300. -- line height: 16
  301. -- part name: Biology 11 (E)
  302. ----- HyperTalk script -----
  303. on mouseUp
  304.   groupFour
  305. end mouseUp
  306.  
  307.  
  308.  
  309. -- part 15 (button)
  310. -- low flags: 00
  311. -- high flags: 0000
  312. -- rect: left=3 top=280 right=292 bottom=492
  313. -- title width / last selected line: 0
  314. -- icon id / first selected line: 0 / 0
  315. -- text alignment: 1
  316. -- font id: 0
  317. -- text size: 12
  318. -- style flags: 0
  319. -- line height: 16
  320. -- part name: Biology 12 (E)
  321. ----- HyperTalk script -----
  322. on mouseUp
  323.   groupFour
  324. end mouseUp
  325.  
  326.  
  327.  
  328. -- part 16 (button)
  329. -- low flags: 00
  330. -- high flags: 0000
  331. -- rect: left=3 top=292 right=304 bottom=492
  332. -- title width / last selected line: 0
  333. -- icon id / first selected line: 0 / 0
  334. -- text alignment: 1
  335. -- font id: 0
  336. -- text size: 12
  337. -- style flags: 0
  338. -- line height: 16
  339. -- part name: Biology Lab 11 (E)
  340. ----- HyperTalk script -----
  341. on mouseUp
  342.   groupFour
  343. end mouseUp
  344.  
  345.  
  346.  
  347. -- part 17 (button)
  348. -- low flags: 00
  349. -- high flags: 0000
  350. -- rect: left=3 top=304 right=316 bottom=492
  351. -- title width / last selected line: 0
  352. -- icon id / first selected line: 0 / 0
  353. -- text alignment: 1
  354. -- font id: 0
  355. -- text size: 12
  356. -- style flags: 0
  357. -- line height: 16
  358. -- part name: Bookkeeping 12 (E)
  359. ----- HyperTalk script -----
  360. on mouseUp
  361.   groupFour
  362. end mouseUp
  363.  
  364.  
  365.  
  366. -- part 18 (button)
  367. -- low flags: 00
  368. -- high flags: 0000
  369. -- rect: left=3 top=316 right=328 bottom=492
  370. -- title width / last selected line: 0
  371. -- icon id / first selected line: 0 / 0
  372. -- text alignment: 1
  373. -- font id: 0
  374. -- text size: 12
  375. -- style flags: 0
  376. -- line height: 16
  377. -- part name: Chemistry 11 (E)
  378. ----- HyperTalk script -----
  379. on mouseUp
  380.   groupFour
  381. end mouseUp
  382.  
  383.  
  384.  
  385. -- part 19 (button)
  386. -- low flags: 00
  387. -- high flags: 0000
  388. -- rect: left=3 top=328 right=340 bottom=492
  389. -- title width / last selected line: 0
  390. -- icon id / first selected line: 0 / 0
  391. -- text alignment: 1
  392. -- font id: 0
  393. -- text size: 12
  394. -- style flags: 0
  395. -- line height: 16
  396. -- part name: Chemistry 12 (E)
  397. ----- HyperTalk script -----
  398. on mouseUp
  399.   groupFour
  400. end mouseUp
  401.  
  402.  
  403.  
  404. -- part 20 (button)
  405. -- low flags: 80
  406. -- high flags: 0000
  407. -- rect: left=245 top=169 right=182 bottom=258
  408. -- title width / last selected line: 0
  409. -- icon id / first selected line: 5062 / 5062
  410. -- text alignment: 1
  411. -- font id: 3
  412. -- text size: 10
  413. -- style flags: 0
  414. -- line height: 13
  415. -- part name: Link
  416. ----- HyperTalk script -----
  417. on mouseUp shiftKey
  418.   if icon of target is "5063" then
  419.     set icon of target to "Sm Unchecked Box"
  420.   else set icon of target to "Sm Checked Box"
  421. end mouseUp
  422.  
  423.  
  424. -- part 21 (button)
  425. -- low flags: 00
  426. -- high flags: 0000
  427. -- rect: left=493 top=275 right=310 bottom=507
  428. -- title width / last selected line: 0
  429. -- icon id / first selected line: 0 / 0
  430. -- text alignment: 1
  431. -- font id: 0
  432. -- text size: 12
  433. -- style flags: 0
  434. -- line height: 16
  435. -- part name: Scroll
  436. ----- HyperTalk script -----
  437. on mouseUp
  438.   lock screen
  439.   resetCard
  440.   go next
  441.   repeat with index = 5 to 12
  442.     set hilite of card button id index to false
  443.   end repeat
  444.   set hilite of card button id 10 to true
  445.   unlock screen
  446. end mouseUp
  447.  
  448.  
  449.  
  450. -- part contents for background part 19
  451. ----- text -----
  452. 12
  453. 12
  454. 12
  455. 12
  456. 12
  457. 11
  458. 12
  459. 12
  460.  
  461. -- part contents for background part 20
  462. ----- text -----
  463. 47
  464. 80
  465. 53
  466. 54
  467. 52
  468. 102
  469. 48
  470. 13
  471.  
  472. -- part contents for background part 21
  473. ----- text -----
  474. Abrosimoff, Michael John
  475. Adams, Bryan
  476. Alexander, Rick
  477.  Alexander, Susan
  478. Allsop, Blair M.
  479. Azimov, Isaac
  480.  Barisoff, Larissa
  481. Bunyan, Paul
  482.  
  483.  
  484.  
  485. -- part contents for background part 22
  486. ----- text -----
  487. Industrial
  488. Academic
  489. Academic
  490. Academic
  491. Academic
  492. Academic
  493. Academic
  494. Commercial
  495.  
  496. -- part contents for background part 23
  497. ----- text -----
  498. 0.0
  499. 0.0
  500. 0.0
  501. 0.0
  502. 0.0
  503. 0.0
  504. 0.0
  505. 0.0
  506.  
  507. -- part contents for background part 24
  508. ----- text -----
  509. 0.0
  510. 0.0
  511. 0.0
  512. 0.0
  513. 0.0
  514. 0.0
  515. 0.0
  516. 0.0
  517.  
  518. -- part contents for background part 25
  519. ----- text -----
  520. 12.0
  521. 12.0
  522. 12.0
  523. 12.0
  524. 12.0
  525. 12.0
  526. 12.0
  527. 12.0